home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
NUMBERS.SWG
/
0027_Get HIGH order of WORD.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-26
|
674b
|
16 lines
{*****************************************************************************
* Function ...... wHi()
* Purpose ....... Return the High order word from a longint (double word)
* Parameters .... n LONGINT to retrieve high word from
* Returns ....... High word from n
* Notes ......... HI only returns the HIgh byte from a word. I needed
* something that returned the high WORD from a LONGINT.
* Author ........ Martin Richardson
* Date .......... October 9, 1992
*****************************************************************************}
FUNCTION wHi( n: LONGINT ): WORD; ASSEMBLER;
ASM
MOV AX, WORD PTR n[2]
END;